COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	PRECEDE				< Preliminary things
C00003 ENDMK
C⊗;
PRECEDE;				< Preliminary things
FUNC DUET.FUN;		< Get functions from EXAMP.FUN[INS,MUS]
COMMON TOOT,CLAR;
*

REVRB 0 0 1;P2  65;END;

TOOT ;
P2 RH/Z(4/8///16//2/4/16////8./16/4/8/////)/@Z/@Z/@-Z;
P3 NO/A(FS4/D5/CS/G/FS/E/ A:FS:DS/G:E:B4/FS5/E/D/CS/B4/BF/A/G/E/FS/G/
A/B)/@A1/@A2/@-A3/@A4/GS4/FINE;
P4 .4;
P5 F2;
P6 F6;
P7 .07;
P18 DF MOV/30 1 .18/30 .18 1;
END;
CLAR ;
DUPL 2;
P4 1;
P5 F3;
P6 F7; P4 .9;
P2 RH/Y(4/12///4./8/4./8/2/4///)/@Y/@Y/@-Y;
P3 NO/B(D2/FS/G/E/B/A/FS/G/D/CS/E/A1/G)/@B-1/@B-2/@-B-3/@B-4/B2/FINE;
P7 .09;
END;
TEMPO/50 55 180/10 180 60;